home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 021 - HO Utilities - Clock Utility System.dsk / STOPWATCH.MILLI.bas < prev    next >
BASIC Source File  |  2019-02-16  |  773b  |  22 lines
  1. 10  REM MILLISECOND STOPWATCH
  2. 20  TEXT : HOME 
  3. 30  IF  PEEK(768) = 76  THEN  CALL 777
  4. 40  IF  PEEK(768) = 76  THEN  GOTO 70
  5. 50  REM MILLISECOND STOPWATCH
  6. 60 D$ =  CHR$(4): PRINT D$"BLOAD BIN.MILLISEC"
  7. 70  CALL 768: REM SET UP INTERRUPTS
  8. 80  IF  PEEK(784) = 0  THEN  PRINT "TIMEMASTER NOT FOUND": END 
  9. 90 B = 256
  10. 100  HOME 
  11. 110  PRINT "PRESS SPACEBAR TO START TIMER": GET A$
  12. 120  CALL 771: REM RESET COUNT
  13. 130  PRINT "PRESS SPACEBAR TO STOP TIMER": GET A$
  14. 140  CALL 774: REM SAVE COUNT IN 780...783
  15. 150 MS = 0: FOR A = 780 TO 783:MS = MS *B + PEEK(A): NEXT 
  16. 160  REM REMEMBER TIMEMASTER REALLY INTERRUPTS AT 1024 HZ
  17. 170 C = MS/1024:S =  INT(C):MS = (C -S) *1000
  18. 180  PRINT 
  19. 190  PRINT S"." LEFT$( STR$(MS) +"00",3)" SECONDS"
  20. 200  FOR EE = 1 TO 1600
  21. 210  NEXT EE
  22. 220  GOTO 20